home *** CD-ROM | disk | FTP | other *** search
/ El Mac 1 / Magazine.iso / EL MAC 1 / Shareware / HyperCard / XCMD Docs / CompileIt! Source Code / AboutPICT Name,r1,r2,r3,r4 < prev    next >
Encoding:
Text File  |  1995-08-19  |  314 b   |  11 lines  |  [TEXT/ttxt]
  1. global AboutHandle:P
  2. global AboutRect:Rect
  3. on AboutPICT Name,r1,r2,r3,r4
  4.   put getNamedResource("PICT",Name) into AboutHandle
  5.   detachresource AboutHandle --Δ
  6.   HLOCK AboutHandle --Δ
  7.   setrect AboutRect,r1,r2,r3,r4
  8.   drawpicture AboutHandle,AboutRect
  9.   HUNLOCK AboutHandle
  10.   disposehandle AboutHandle
  11. end AboutPICT